(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6266,        175]
NotebookOptionsPosition[      5483,        148]
NotebookOutlinePosition[      5840,        164]
CellTagsIndexPosition[      5797,        161]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "3.55"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.5", ",", "3.9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4.2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.5", ",", "4.47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.2", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.830057623486579*^9, 3.8300577025828094`*^9}, 
   3.8300578689372396`*^9},ExpressionUUID->"1278d911-1aa1-48b5-9446-\
a79729c7e1b5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"data", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "d"}], "}"}], ",", "d"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.830057911403113*^9, 3.8300579644285083`*^9}, {
  3.8300580384865737`*^9, 
  3.8300580605755215`*^9}},ExpressionUUID->"1f801143-1f79-42db-ac90-\
3a23cf383b42"],

Cell[BoxData[
 RowBox[{"2.9088540245566175`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.6446793997271492`", " ", "d"}]}]], "Output",
 CellChangeTimes->{
  3.830057966042252*^9, {3.8300580405509048`*^9, 
   3.830058062597025*^9}},ExpressionUUID->"99afa8ef-c692-4b65-9b9b-\
2b0b42f3cfd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"line", ",", 
     RowBox[{"{", 
      RowBox[{"d", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8300579872149677`*^9, 
  3.8300580753352194`*^9}},ExpressionUUID->"f4f89cfe-c092-4c16-a2d2-\
8ab0d41359ab"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{1., 3.55}, {1.5, 3.9}, {2., 4.2}, {2.5, 4.47}, {3.2, 
       5.}}]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVknk41HkAhxFmGOY7M/yqIbVEh1KtLauo7yf30VREalM8JaFjsRXaLmWU
Ssljqc0VarNytEYHKk+p3TyOrLt1rZ0phQzjWJTZ9o/3eZ/3/9d49/eee9VU
VFREX/jfbnt76yveH1ln+sDT1duRBXV7g9AuoRfd+JWLXOHEwjcZ11KLhQE0
Km5tSqILC+41Lb+lCQ/T2h2LZHXuLPgEjD9OFMbQKJXp026eLHQsP2cfL0yi
ta65D6kfC5nMptgLwhwa2a5caB7FQjS7eGGcUEJrVPM1lXdZ2Lb9ZqF8qJIG
Dwsm/Y3Y4CijfZ3n1tGvJ5wDNseyYebxsff5xUYqcPJ/s2KAjYja1fTaSBuV
WcfEvvLVwiwJv1NVtYtK10fkDlZq4X6PfXWdbQ9tlh9Rq12ljWchaYbb+6W0
W+azLy1HG6ML1pL8g+/o7CG2/SSHA7WJPJ6h2QeKrBde5DgHVkr/+1sK+mly
sEfHPSkH1TEra1+aD1KNiIowR3cdzEvom8j9KKeB5ja2V0t10Dfe1dm0Ypgq
FDEnQkx0kfOhrIp7WUHD97wZmUrUBdfol0GpdIRqC/UiT6pycSm4JDDTdIzW
SQ3CLwdxMYY8adCpcRq7dVnW1lYuDltWSmY+/5cGd/Jc74Kgq6DyYr3xJF2n
ozQrvUcwFdJ4Y/GxKToTQed8eTwsWc+aDiz7RE3F1g9MHHhwzjLed2/WNDVP
46o5HuchwsjP5G9fJXXGBnZBEQ9L+705LSIVhMb+mESkPOgRObtyUgWJGUU2
NYZ8qD+9UTg/VRVV9qL0+k187F9Z1qblroZPpYOGluf5yHPdnflkTA1rms7O
u/iUj9E+A97b5Bm4fOxUp7mCj5ItzjOSHNTx1/DphwuWCHDKRZwheasOOvZe
FOwngHGHW2u2WAOFqQ7BOYkCrPk2JkloqYnZM29l2FQJ4Du3bkK1QRMpBgev
CqcFGK2K7wmNZoEMr0nfYqWHa+q7DnuaspHuFRrYGKIHvc6SLLVKNqy/S5GI
0vWgcSLaa3WYFqotK43mN+tBJXdXYY9AG0eTt9lRbX2E/1wYL3imDYOa4egH
dvp4vOQ8m3+Ig6rbJ50XHdMH3y186RmuDhI44X905euj3eJ1Q1S5Djba7w9Q
yPRRlE5Npbt0YapZXSYyYLCz0IpvNK0LzQNzr2eKGJwW34xu/5WL7pyjVzeJ
GeT3Gt3gbiB4HWTl6PiIwfk0sX/nRoK4M5POFqUMAjwHzAo8COxSn7gxZQzm
lJcXiXwIJHVOm2XlDC5c2fHy0m6CZCufHeIKBkFW14e0owh81SPDXvzOwCRG
34V1m+BdxqM0x2YG09bHdVvuEGQ+OpFp0cKgbeCfP2/nEWxrWJ/NtDJI8Cne
6fTloyrNqjuyNgZKc88fxOUEdw++KRZ3MGivv5I+o4Eg3Gbq1Qspg4ex43sa
mgjMvZ9W58sYJNn4Lc5uJZAeOlv301sG7reWSew6CbyzOE17exmURta8in5P
YK01p1ujn0GyxaorHv0EcpPunoEvHdaT6mU8SJBrmyNrGmCwaMOBrooRAoPQ
pX23BhmoqzbmJIwTNMTJB+LlDLpLbEL8JwkuZUvkR4YYlIdkL1/xmcDhcaRi
5zCDlHmcUaWS4HOz7ZijgsF/J6AeQA==
        "]]},
      Annotation[#, "Charting`Private`Tag$5072#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.965625, 3.4774999999999996`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{689., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1., 3.2}, {3.55, 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.83005807682619*^9},ExpressionUUID->"096f4c7b-9073-49f7-88d4-acc2e333b849"]
}, Open  ]]
},
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (2017\:5e745\:670816\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 583, 17, 30, "Input", "ExpressionUUID" -> \
"1278d911-1aa1-48b5-9446-a79729c7e1b5"],
Cell[CellGroupData[{
Cell[1166, 41, 351, 9, 47, "Input", "ExpressionUUID" -> \
"1f801143-1f79-42db-ac90-3a23cf383b42"],
Cell[1520, 52, 283, 6, 30, "Output", "ExpressionUUID" -> \
"99afa8ef-c692-4b65-9b9b-2b0b42f3cfd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1840, 63, 372, 10, 47, "Input", "ExpressionUUID" -> \
"f4f89cfe-c092-4c16-a2d2-8ab0d41359ab"],
Cell[2215, 75, 3252, 70, 446, "Output", "ExpressionUUID" -> \
"096f4c7b-9073-49f7-88d4-acc2e333b849"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

